home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form Form5
- BorderStyle = 1 'Fixed Single
- Caption = "3D Button"
- ClientHeight = 765
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 1695
- Icon = "Form5.frx":0000
- LinkTopic = "Form5"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 765
- ScaleWidth = 1695
- StartUpPosition = 2 'CenterScreen
- Begin VB.Label Label1
- Alignment = 2 'Center
- BackStyle = 0 'Transparent
- Caption = "3D Button"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 120
- TabIndex = 0
- Top = 240
- Width = 1335
- End
- Begin VB.Line Line1
- BorderColor = &H00FFFFFF&
- Index = 1
- Visible = 0 'False
- X1 = 120
- X2 = 120
- Y1 = 120
- Y2 = 600
- End
- Begin VB.Line Line1
- BorderColor = &H00808080&
- Index = 2
- Visible = 0 'False
- X1 = 1560
- X2 = 1560
- Y1 = 120
- Y2 = 600
- End
- Begin VB.Line Line1
- BorderColor = &H00FFFFFF&
- Index = 0
- Visible = 0 'False
- X1 = 120
- X2 = 1560
- Y1 = 120
- Y2 = 120
- End
- Begin VB.Line Line1
- BorderColor = &H00808080&
- Index = 3
- Visible = 0 'False
- X1 = 120
- X2 = 1560
- Y1 = 600
- Y2 = 600
- End
- Attribute VB_Name = "Form5"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Dim Shift As Control
- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- For Z = 0 To 3
- Line1(Z).Visible = False
- Next Z
- End Sub
- Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- If Button = vbLeftButton Then
- Line1(0).BorderColor = QBColor(8)
- Line1(1).BorderColor = QBColor(8)
- Line1(2).BorderColor = QBColor(15)
- Line1(3).BorderColor = QBColor(15)
- End If
- End Sub
- Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- For Z = 0 To 3
- Line1(Z).Visible = True
- Next Z
- End Sub
- Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- If Button = vbLeftButton Then
- Line1(0).BorderColor = QBColor(15)
- Line1(1).BorderColor = QBColor(15)
- Line1(2).BorderColor = QBColor(8)
- Line1(3).BorderColor = QBColor(8)
- End If
- End Sub
-